   5 .RING
   6 .ALBERT PAUL
  10 clear ;NT=0
  20 input "THICKNESS  ",N
  22 input "SIZE  ",M
  24 clear 
  30 for X=-44to 0
  40 for Y=-44to 0
  45 J=(Xmul X)+(Ymul Y)
  50 if J>Mgoto 110
  60 if J<Ngoto 120
  70 box X,Y,1,1,1
  80 box X,-Y,1,1,1
  90 box -X,Y,1,1,1
 100 box -X,-Y,1,1,1
 110 next Y
 120 next X
>run 
